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Commodore finally announced a number of new PET products 
which will enable PET owners to easily build a complete system. 

These include: 2001 -16N (16K graphics) at $995; 2001 - 16B 
(16K business) at $995; 2001-32N (32K graphics) at $1195; and 
2001-32B (32K business) at $1 195, All of these models include 
full size keyboards, but cassette is optional at $95. 

Three printer models were announced: 2021 (80 column 
electrostatic) at $549; 2022 (80 column dot matrix tractor feed) 
at $995; and 2023 (80 column pressure feed dot matrix) at $849. 

Additionally, two disk drive versions will be available. 

These are the 2040 (343K net capacity on two drives) at $1095, 
and the 2041 (171 ,5K net on one drive) at $595. 

Delivery for all the products is supposed to begin in May 
(1979 1). The disk and printers will be packaged in nice metal 
cases in the style of the PET. 

The currently available 2001-8 PET will continue to be sold 
in its present format. No word yet on replacement ROMs for the 
8K, but the new models will have a new ROM set. 

I saw a copy of the PET User Manual recently. It was printed 
In 8.5 x 11 format like the 6500 Programming Manual, and con¬ 
tained about 120 pages. I think the price is $9.95. The chapter 
titles are: Welcome to Your PET Computer; Unpacking Your 
PET; Basic Keyboard Input; Beginning BASIC; Elementary 
Programming; Advanced Programming Techniques (string 
variables, functions, subroutines, FOR-NEXT loops, subscripted 
variables); PET Communication with Outside World (previously 
published); Machine Language Programming (most of this 
previously published, but does include Machine Language Mon¬ 
itor source code); and Errors and Diagnostics (error messages). 

The manual has nothing magic. It seemed to neglect graphics 
completely, and only mentioned PEEK and POKE in the same 
brief note that "Intro to Your PET* 1 uHed^f.Never-the-less, it is 
obviously the best effort Commodorp^Ssl.ijJaade yet for PET. 

6550 RAM chips are now $18, rather than the previous $30. 
They g re currently available from MOS Technology Customer 
Service, 950 Rittenhouse Road, Norristown PA 19403. Add 
$1.25 shipping per order. New PET s again are using 6550 chips. 

PET repair policy has changed. Current charges are $25 per 
machine plus ports cost plus $3 shipping , or $20 per component 
(like cassette drive, main logic board, video board) plus parts. 

If you haven't received Machine Language Monitor and 
preliminary manuals and you received your PET prior to 1 October 
1978, send Commodore your serial number and a photocopy of 
your sales slip with your request. I don't know what later 
purchasers receive. 

Since repair prices have increased, here are several 
suggestions. Make sure the power connector plug fits tightly 
ontr> pins on main logic board (many machines have this problem). 
If they don't, remove the spring clips from the plug and bend to 
odd more spring tension. Inspect the wires leading to the tape 
read/wrife head on occasion--sincc the head snaps back and 
forth frequently, the wires can fray a'xi break. Both suggestions 
are from Commodore Customer Service. From Don Nyre, 

Newport Beach CA: spray something like Miller Stephenson 
Confccf-Re-Nu into both enas of the multi-contact slide switch 
mounted on the cassette circuit board to prevent stickinq. 

Muke Lundberg, Omaha NE wrote that his and several other 


machines ?n his area experienced problems like permanent cursor 
loss, no keyboard control, and a screen full of garbage. The 
problem was caused by an oily residue under the IC's which Mike 
cleaned with 95% isopropyl alcohol. 

Have received several suggestions and requests for product and 
software reviews. I'm very reluctant to get involved in this. I 
hope the User Notes will be primarily a forum for deriving full 
potential from your computer, and I think the best way to accomp¬ 
lish this is through exchange of hardware and software ideas at 
nominal cost. 

I do not personally have time to review very many products, 
and would hate to have my purely subjective opinions construed 
as gospel. I would also not like to publish a rave review written 
by a software author's cousin, nor would I care to include a 
negative review by someone associated with a competitive 
roduct. If you do want reviews, however, I will print them — 
ut would like to receive comments from more than one person 
using each product in case there are dissenting opinions. 

The instigation to write this blurb on reviews was receipt of a 
letter from Sanford D. Sadowsky, Scotch Plains, NJ. Mr. Sad- 
owsky sent a scathing indictment of Video Checkers by Compu- 
Quote, stating that the publicity brochure misrepresented the 
software package, the program played very poorly, and the 
package wasn 't worth $14.95, 

In general, I don't think very many software products, 
especially games and diversions, are worth that price. There are 
currently a number of sources for decent software at reasonable 
prices. I also think it's a good idea to call or write for complete 
information before purchasing, and if the product does not 
measure up to claims, you should ask for a refund at a minimum. 
Additionally, shipment by UPS COD only costs 85q extra, and 
might be good protection for slow delivery. Remember, with the 
advent of microcomputers, there are at least another 100,000 
new entrepreneurs out there. 

SIGN UP FOR THE NEXT 6 ISSUES 

Although late, this is the last Issue of Volume 1 . If you liked 
the User Notes, please re-subscribe. I will do another 6 issues 
at a minimum, and more if the interest is there. To date, less 
than half of you have siqned up aqain (about 1000 out of the 
current 2500). 

Thanks for all the encouraging letters also. I promise to try 
more diligently to get the notes out on time for the next issues. 

The primary reason for the slight price increase is to have a steady 
part-time person to help with typing, responses to letters, mail 
list maintenance, and do the "programs on tape" on a more 
timely basis. This should help a lot — I'm sure I would enjoy 
doing the User Notes if they didn't take as much time and effort. 


PET User Notes published 6 (or more) times a year by Gene Beals, 
PET User Group, Box 371, Montgomeryvi Ile, PA 16936. 
Subscription is $6 for 6 issues in U.S. and Canada, and $12 for 
airmail to other countries. Copyright 1979. 
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Announcements 

Charles LaForce, 9130 Balcon Ave, Northridge CA (2)3) 
884-0735 is interested in talking to San Fernando Valley PET 
people. 

Program Design, tl Idar Court, Greenwich, Conn 04830 is 
offering a nunber of educational ganes for preschool to adult 
Jevels. Prices range fron 410 to 430. 

Connecticut nicroConputer, 150 Pocono Road, Brookfield, CT 
04804 has application notes "Software Delay for Slow Carriage 
Return Printers Using CnC ADA 1200", and "Output Fornatting". 

Chuck Johnson, 17104 Via Alanitos, San Lorenzo CA 94580 
has 2 Atari joysticks, connectors, and a SNAKE deno program 
for the joysticks at 434 . I think he will also send you a 
nice application note he has written if you want to put the 
package together on your own. 

Bill Maddox, 9715 Heidelberg St, San Antonio TX 78233 has 
a Star Trek program in which the Enterprise is Matched 
against nine equally strong Klingon vessels. Unless the 
Enterprise acts, it will be sought out and destroyed by the 
Klingons. Three levels of difficulty — <4. 

Janes Mendenhall of Conpetitive Software, 21450 Maple Glen 
Dr, Edwardsburg Ml 49)12 is selling a Hone Utilities tape for 
PET at 49.95. All orders received by March 1979 will also 
include a free assortnent of ganes. 

Micro Software Systens, P 0 Box 1442, Uoodbridge VA 22193 
announced BILLBOARD, a commercially oriented display and 
advertising progran for 449.95. Billboard Moves inch high 
characters across the PET screen fron right to left to 
display your Messages. 

Robert Elliott Purser, P 0 Box 444, El Dorado CA 95423 
publishes a reference list of PET, TRS-80, and Apple 
cassettes. The list is published quarterly at 44. 

GPA Electronics, 904 Blair Ave, Oakland CA 94411 sell an 
IEEE to 20na (459.95) or RS-232 (474.95) Printer Interface 
with switch selectable baud rates. 

Skyles Electric Vorks, 399 N. Matilda Ave-Sulte 24, 
Sunnyvale CA 94048 announced 8K (4250), 14X (4450), and 24K 
(4450) static Nenory units for PET. Also announced was a 
"Big Keyboard" for 4125 to provide full size keying in 
parallel to the existing keyboard. 

Kenneth Ralston of Micro Systens Laboratory, 1492 Oak 
Drove Circle, Santa Ana CA 92705 announced an RS-232 adapter 
for PET with software selectable baud rates at 451.95. 

Expander Incorporated, 400 Sainte Claire Plaza, Upper St. 
Clair, PA 15241 has an IEEE/TTL Parallel Adapter for their 
Black Box Printer. The Interface is 498, and the printer is 
4394 without base and cover (430 extra). 

Nestar Systens, Inc, 810 Garland Dr, Palo Alto CA 94303 
announced Cluster/One, a low cost distributed processing 
systen which can connect up to 15 PETs through a high speed 
bus. The central Machine (a PET) allows each independent 
proce5soi°to access disk storage and print capability. 


Poor Man's D/A Converter 

Jin Butterfield 

Cheap, good for generating Chanberlin-stylq Music. Precision 
resistors are preferred, but nost anything will generate a 
recognizable sound. 

Section B of the diagran supports the CB2 sound effects, 
so that one interface board covers nost sound requirenents. 


3.2M ft. 



The capacitor provides sone reduction of the sanpling 
frequency (when generating nuslc) .. tone controls on the 
anplifier will also help, if available. 

[ed. note: "Chanberlin-style nusic" is sonething worth 
listening to if you haven't heard it. For background on 
this, see the excellent article written by Hal Chanberlin in 
Sept. 1977 Byte Magazine. The nusic is a conbination of 
digital to analog output and 4502 software. MTU (Hal 
Chanberlin and David Cox) nanufacture an excellent, low cost 
DAC board with on-board audio anplifier. They will be 
revising the unit in the near future to use a single 5 volt 
supply (currently 5 and 12 volt) which will nake it easier to 
use with PET. Current node! is MTU K-tO02 at 440.3 


Programs on Tape 

42 for the first progran including cassette and postage, 41 
for each additional 

— nax 4 per tape. This cones to 45 for each 4 prograns. This 
“progrins on tape service" is priced to cover the cost of a 
part tine person to copy and nail the tapes. If you have a 
progran to add to the list, please send it on tape. Ue will 
copy is and return your tape (with progran of your choice). 
Please do not send connercial prograns. 

SEQUENCE — you have to sort a character list 
STATECAPS --quiz on states and capitals fron Kilooaud 3/78 
RACETRACK -- see listing in V. 1, Issue 3 - RE McGee 
DEFLECTION -- F Dunlap 

ADDITION -- nath drill — F Dunlap, C Pitcairn 
OTHELLO -- fron Byte 9/77 
BAGELS -- like Hasternind - J Butterfield 
Cash flow/Return on Investnent - R Goldsnith 
STAR TREK 


BLACKJACK -- D Lien-nice graphics, hunorous patter by dealer 

LIFE 40*25 — F Covitz 

LIFE 44*44 — F Covitz 

DO-ALL -- JK Johnson fron Kilobaud 

TRAP — trap the PET, avoid being trapped 

SUPER MASTERMIND — JR Marcou 

LUNAR LANDER -- JR Marcou 

NIN -- J Butterfield 

CUBIC — 3D Tic-Tac-Toe 

LIST MEnORT — Charles Conbs 

MACHINE LANGUAGE MONITOR -- loads in low nenory 
TIME -- large clock display 

BIORTThil -- K Finn - concise code - 30 statenents 

KING -- business-social emulation gane 

BREAKOUT -- J Butterfield - paddle ball 

SUATPL0T — F Canpbell (see V.1,Issue 3) - 80*50 plot 

TYPEWRITER -- M Richter, R Julin - no printer interface yet 

UUMPUS - hunt the wunpus 

MARKET -- corporate emulation 

CCnCENTRATIGN -- Francis Chanters -displays 52 cards 
ESP TEST -- Francis Chanters - test your ESP powers 
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"SHARK BAIT — JK Johnson - hangman style program 
FLEA RACE — JK Johnson 

AUARI — Hans-J Koch -German instructions - nice graphics 
CHASE with Sound 

STAS LANES — Gerald Hasty - fro* Interface Age future-world 
business simulation 

KALEIDOSCOPE -- Jerry Panofsky - People's Computers 
HEXDEC — Uayne Reindollar - converts and pokes values into 
memory for machine language programs 
24 Second QUBIC — Hike Louder 
DOODLER — Jim Brannan - draw type program 
6NIP GNOP — Jim Brannan - 2 player ping pong 
PONG — People's Computers 

CURFIT — J Butterfield -fits data to 4 curves 
TRIANGLE -- J Butterfield - solves any triangle 
METRIC — J Butterfield - does metric conversions 
PATES — J Butterfield - day of week., days between 
TRENDLINE -- J Butterfield - fits, forecasts, graphs 
MILEAGE — J Butterfield - distances from Latitude/Longitude 
FACTORS -- J Butterfield - prime factors for any number 
MORTGAGE — J Butterfield - schedule of payments 
FINANCE - J Butterfield - present, future value etc. 

ADDER - Earl Uuchter - PET as printing adder (nicely done) 

BATTLESHIPS -- J Butterfield - you vs. computer 

NOOHLANDER — J Butterfield - graphics 

CRYPTO — J Butterfield - cryptogram solving aid 

JOTTO — J Butterfield - guess a word 

POEMS — J Butterfield - write poetry 

MYSTERY -- J Butterfield - you can't list it! 

HIMONDIS - high monitor and disassembler from SPHINX. 

Modified by H. Chow 

ELIZA -- adapted for PET by Dennis Cumberton - the computer 
psychologist 

HAMMURABI -- social simulation 
SLOT MACHINE — Michael Richter 
CRAPS — Michael Richter 
BREAKOUT with Sound 

POP SHOT -- from SPHINX - shooting gallery with sound 
STARS -- John Broomhall - children's number guessing game 
LINEON -- Frank Alexander - solves linear equations using 
matrix invert subroutine. 

POUNCE — John Broomhall - kids game.If you don't pounce the 
right number of spaces, the mouse might run into his hole. 
STAR UARS -- John Broomhall 

AUTO-DOODLE — Frank Levinson - draws very nice rectangular 
patterns 

FOURIER —Frank Levinson - very nice high density graphing - 
visual demo of Fourier approximation curve fit. 

CRAPS2 — Earl Uuchter-not a crap game; rolls dice 2 displays 
statistics on the rolls. Shows odds, displays dice. 

DRAW POKER -- Earl Uuchter 

SOLITAIRE POKER -- D Howe-submitted by E Herstein - solitaire 
version of draw poker. Displays odds as you play. 

PRO FOOTBALL — Modified by Carl Hennig frum SRI Library 
RENUMBER -- Bill Seiler - machine language version 
MATCH GAME — L Uher - 23 matches 

STAR TREK IV -- Francis Chambers - updated version with good 
graphics and more features 

BRAIN STRAIN — Ed Herstein - try to get lights on in all but 
the center square 

SNAKE -- submitted by Ed Herstein - a 0,1, or 2 player Trap 
game that speeds uo the longer you go. 

YAHTZEE -- Pete Rowe submitted by Ed Herstein - dice game 
HANGMAN -- Grant Paul - has list of 500 words 
HANGMAN 2 -- for 2 players with PET keeping score - needs a 
little work on display 1 graphics. 

TAPE TEST -- Bob Huencnann - Help to evaluate tape errors. 
COPT --R Julin - data file manipulation 

,Al* 2 Talker -- R Julin - Send ASCII characters between 2 
PETs via parallel user port. 

LEM -- submitted by Horst B'inkler - lunar lander includes 
attitude angle and orbit consideration as well as time, 
altitude, t velocity. English or metric measurements. No 
graphics. 

INDEX — David Uilcox - tape index to locate a specific 
program on a tape. . 

KENTuCK v DERBY -- Tom Baker - Horse race for any number of 
people with betting - good looming horses. 


MAZE -- Hans-J Koch - Creates a single solution mace up to 
19»10. Use cursor keys to find way through. 

FLIGHT SIMULATOR - submitted by Jerry Panofsky - instrument 
flying. Try to take off and land safely. 

BACKGAMMON — BUI Hood 

PPONG — P. Roue submitted by Ed Herstein - similar to 
deflection with land nines 

FN MACHINE — P. Rowe submitted by Ed Herstein-feed numbers 
through machine, see output, deduce function. 

WEIGH - Guess the lightest and heaviest object in 3 tries. - 
KLINGON CAPTURE -- Mark Turner - grid game from KILOBAUD 
SIMON -- Gary Mayhuk - sound repetition game - 
0THEL1072 — F. Dunlap Modified by J Mendenhall 
DIGIT SPAN — nunber recall in sequence and reverse sequence' 
for progressively long numbers 
CENTRAL LIMIT — Dave Heise - graphs results of repeated 
samples of any given size, showing averages tend to bt 
normally distributed. 

CHI SQUARE — Dave Heise - constructs repeated random 4-fold 
tables and computes significance test fop each. Nice 
graphic representation of statistical values. 

MONEY CHANGER — Max Yoder - give correct change for amount 
shown. Basis of a good educational program. No graphics. 
BABY -- Sally 2 Stan Klein - try to keep your sanity while 
feeding 2 diapering your haby yet have time to yourself 
SAN--R Tansony-shoot down enemy planes from your missile base 
CHECKERS — Uilliam Anderson 

PET ORGAN — Urn. Anderson - Sound plays 3 octaves of notes 
STARUAR — John Bali - save planet from enemy fighter planes. 

10 levels of difficulty. 

LONG DIVISION - - E Lichten-long division tutorial by grade 
level 

HEAT PROGRAM — Chris Crawford 

TANKS — E Lichten - shoot Russian tanks which are faster 2 
able to move through the mine fields 
FAIR OPTION VALUF — Joe Kot - Evaluates stock option prices. 
TRACE — Brett Butler-traces basic progran or direct entries 
KEYBOARD -- Neil Harris/J Butterfield - musical keyboard, 
will remember and play back tune 
MARKS -- J Butterfield - keeps track of names and grades, 
shows low, high, and average. Keeps tape file 
PORTFOLIO — J Butterfield - keeps track of stocks. Buy, 
sell, evaluate, and save on tape. 

MERGE -- J RU5S0/H Chow - merge two or more program segments 
M717! -- J Russo/H Chow - high monitor with merge capability 
IMAGE -- P Rowe, modified by H Chow - save any portion of 
memory on cassette 


Star Sounds — CB? Sound 

Rick Church 
Helena,MT. 


10 POKE 59467,16 
20 POKE 59466,15 
30 A-l 

40 FOR T -I TO 20 

50 FOR X-255 TO 100 STEP -A 

60 POKE 59464.X 

70 NEXT X: NEXT T 

80 A-A+l: COTO 49 


10 POKE 59467,16 
20 POKE 59466,15 
30 A-255 

40 FOR X-A-4 TO A 
50 POKE 59464.X 
60 NEXT X 

70 IF A< 5 THEN END 
80 A-A-1:GOTO 40 
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Two Player Games with One Keyboard 

by Michael Riley, Philadelphia 

Under normal operation, two player janes on the PET are 
limited by Key lock out - that is, when one key is held down, 
the other keys are locked out. 

Ganes that need a limted nunber of keys can be played 
with the help of K*PEEK(594 10). Normally, 59410 contains 
255. Uhen any of the keys "rvs", *[", "spc", or 

are depressed, certain bits will be reset. These bits are 
1,2,4,8,64, and 128 respectively. 

Ganes involving nore than a feu keys require a nachine 
language routine, however. To do this, first set the 
interrupt disable. Then add 240 CSF03 to the .row nunber of 
the key that you want to sense. Store the sun in E810. Then 
look to see what is in E8I2. E8I2 will contain the values of 
the colunn nunber bits. If the value of the colunn nunber 
bit is 0 (reset or off), then the key is being held down. 

(see keyboard chart acconpanying article) 

The following progran stores the nunber 240 through 249 in 
E810 and transfers the results of E812 to the first 10 bytes 
on the screen. The purpose of the progran is to denonstrate 
graphically how keys can be sensed. 

You nay wish to write your own routine or sinply change 
this one so that the ten infornation bytes are stored 
soneuhere other than on the screen. They can then be PEEKed 
with a sinole BASIC connand and "ANDed" with the proper bits 
in order to reveal the location of keys that are being held 
down sinultaneously. 


033A 

78 



SET 


033B 

A0 

F0 


LDY 

itSFO 

03 3 D 

A2 

00 


LDX 

moo 

033F 

8C 

10 

CO 

UJ 

STY 

o 

CO 

UJ 

V* 

0342 

AD 

12 

E8 

LDA 

4E812 

0345 

?B 

00 

80 

STA 

X 

o 

o 

o 

CO 

0348 

E3 



I NX 


0349 

CS 



INY 


03 4 A 

O 

UJ 

0A 


CPX 

tttOA 

034C 

DO 

FI 


BNE 

4033F 

034E 

58 



CLI 


034F 

60 



RTS 



100 F0RX=826T0347iREADRsP0KEX,RiNEXTX 
110 SYS826 
120 PRINT'hddd 
130 G0T0110 

826 DATA 120,160,240,162,0,140,14,232 
830 DAT A173, 18,232,1 57,0,128,232 
841 DATA200.224,10,208,241,B8,96 


GET String Routine 

John Bell McLean, VA 

Ths routine acts as a substitute for an INPUT statenent 
and it allows connas, senicolons, colons, etc. to be used, 
which cannot be used in INPUT. 

10 04*" 40 blanks “ 

2500 KEH GET SIR ROUTINE 
2505 Z»*"":B»«*» " j X* - " " 

2510 A= : PEEK(245)*I 

2515 IF A> 21 THEN PRINT "ddd“:A>A-J 

2516 POKE 245,AiPRINT "u’jBI 
2520 GET X»i IF XI*’" THEN 2520 

CriC IF X*. = CHR»(I3> THEN PRINT:RETURN 
2535 IFASC(XSXIAOANPASC(X«)>940RASC(Xt)<30THENZ* 
=LEFTI(Z»,LEN(Z«>-1):GO 102555 
2540 Z*=ZI»X» 

2555 POKE 245,A:PRINT-u";B*;Z*;0»:G0T0 2520 
3000 REN 

3100 PRINT" u’cursor up; d=cursor down" 

Note: Line 2535 naies the cursor controls and delete key list 
character entered. 

Line 2515 allows roon at the bottom of the screen for 
two lines without scrolling during entry. 



Verifying Tape Loads 

By Jin Butterfield Toronto 

Uhen you get a bad cassette tape load, PET says TL0A3 
ERROR. So if you don't get the error message, just READY, 
that means your tape read is good, right’ 

Urong. For unknown reasons, PET only warns of cental* 
kinds of errors. As many users know by now, you can get 1 
bad load with no warning from PET. 

To checm for a good lcrad, just type ? ST after the load is 
complete. A reply of 0 l:ero) means the load is OK. A reply 
of any other means a bad load. 
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TUNNEL VISION and KAT & MOUSE 57.95 

Two excellent maze programs. In Tunnel Vision, you view the 
maze from inside in perspective. If you get lost in attempting 
to reach the exit, the program provides you a map showing the 
trail. In Kat & Mouse, you must find your way through the 
maze before the hungry Kat finds you. Each maze has only one 
solution, and each is unique. 

KITE FIGHT & SIMON $7.95 

Kites is a completely original two player action game 
wi th ita own unique strategies. Includes 4 pages on real 
Indian Fighter Kites. 

In Simon, you must repeat what you see and hear. 

Simon is a fun game with great graphics and sound. 

All by Michael Riley 


LUNAR LANDER - The most sophisticated lander available with 
auto-pilot in case of pilot errors. Includes sound on descent 
and the Star Spangled Banner upon a successful landing. 

By Jeff Jessee and Sob Freeman. 

MORSE CODE - Leam morse code painlessly. Morse Code will 
sound out any letter you key in, or it will give the sounds for 
code recognition practice. By Bob Freeman 
BOTH FOR $9.95 


MICROCHESS by Peter Jennings 517.95 

Offers 8 levels of play to suit everyone from beginner to the 
serious player. It examines as many as 6 moves ahead. 

BRIDGE CHALLENGER 513.45 

You and the dummy play 4 person Contract Bridge against 
the PET. The program deals hands according to your criterion 
for high card points. You can review tricks, swap sideT, or 
replay cards after each hand. 

STIMULATING SIMULATIONS 513.45 

Dr. CW Engels' book of 10 interesting simulation games with 
complete documentation, instructions, and suggestions for 
modification and enhancement. Includes cassette with programs 
keyed in for you. 

GRAPHICS UTILITY PACKAGE 513.45 

All From Personal Software 


ABTAPE1 $8.00 

Includes Life, Bioryfhm, Othello, Mastermind II, 
Multiprimer (math tutorial-deduction game), and Capture 

CmC Word Processor 524,95 

The best available word processing software for the PET 


BOOKS books 

BASIC for Home Computers - Albrecht, Finkel, Brown 
New programmed instruction text on MICROSOFT BASIC 

BASIC and the Personal Computer - Dwyer & Critchfield 

Stimulating Simulations - Dr. C. William Engel 

Programming a Micrcomputer:6502 - Caxton Foster 

My Computer Likes Me ‘when I speak BASIC - B Albrecht 


BOOKS books BOOKS 


55.95 

6500 Programming Manual - MOS Technology 

$6.50 


6500 Hardware Manual - MOS Technology 

56.50 

512.95 


Hewlett-Packard IEEE-488 Standards Manual 

51.50 

54.00 


Instant BASIC - Jerald R. Brown 

56.00 

58.95 


How to Profit From Your Personal Computer 

$7.00 

52.00 

- TG Lewis 



ACCES 


Cassette Tapes 


° Premium quality high output, low noise in 5 screw housings 
C-10 (5 min/slde) 10/S6.25 50/527 100/552 

C-30 (15 min/side) 10/S8.00 50/536 100/S67 

Certified Digital Cassette Tape 300 foot (C-64) 10/519.50 

In digital 5 screw housing with slide write protect tabs, with 
Norelco box 

Soft plastic boxes 

Norelco-style hard plastic two piece binged box 

10/51.00 

10/51.25 

PET Edge Connector Plugs with Keys 

Second Cassette Port 

User or IEEE-438 Port 

Memory Port 

51.75 

52.50 

54.95 

Protect-A-PET 

59.95 


Custom fitted clear vinyl dusf cover wifh 
quality stitched seams for those rare 
occasions when you're away from your PET 


K !M-1 $161 Wrife for list of 

SYM $238 PET and KIM accessories 


ORIES 

BETSI PET to S-100 Interface Motherboard $149 

Four slot motherboard - On board sockets 
and decoding circuitry hardware with four 
100 pin edge connectors. Assembled. 

BETSI Kit - one S-100 connector $1 19 

Power Supply for BETSI and static RAM boards $34 

8 volt/6 amp. Assembled in case 

S-100 8K Static RAM (Problem Solver Systems) $149 
Assembled, tested, and burned-in at factory 
120 day warranty PERFECT FOR BETSI 

S-100 16K Static RAM (Problem Solver Systems) $295 

PET IEEE to Printer Interface by GPA El ecfronics 
Assembled and tested -- includes an additional 
connector, thus leaves bus open for additional 
peripherals. 20 mo $59.95 

RS-232 $74.95 


We pay shipping on prepaid orders in excess 
of $6.00. Add $.75 for orders less fhan $6. 


A B Computers 


PO Box 104 Perkasia PA 18944 


(215) 257-8195 




M7171 Monitor and Merge in High Memory 

Jin Russo, Henry Chou Detroit 

H717I now has the ability to load and link, several BASIC 
prograns, to allow several subroutines to be conbined into 
one progran, or to sinply have nore than one progran resident 
it nenory at one tine. 

H7I71 is loaded by the BASIC connand LOAD. It is started 
by STS7171. Uhen H717! is started, it reserves the top IK 
(of an 8K PCI) for itself. Exit fron M7171 by the connand X. 

Uhen the PET loads H7171, it then considers Progran Nenory 
to be full. If you wish to type in a new BASIC progran, use 
the NEU connand to free up nenory. If yo wish to load a 
BASIC progran fron tape, use the BASIC connand LOAD.. 

To load a BASIC progran after the BASIC progran already in 
nenory, enter h 717 I by the connand SYS 7171, then use L Oi, or 
L 01,NA ME to load the tape. If the tape contains a BASIC 
progan which will fit in the renaining nenory, it is loaded, 
and control is returned to BASIC. If the progran doei not 
fit, H7171 prints ? and refuses to load it. If the tape 
contains a nachine-language progran, H717I loads it nornally 
a»d retains control. 

If you wish to conbine several BASIC routines into one 
progran, the line nunbers of the sections should not overlap 
each other; and the louest-nunbered section should be loaded 
first. If you violate this rule, BASIC will proceed as 
follows: when looking for a line nunber, it starts at the 
beginning of the progran and scans forward until it finds it; 
if it first finds a larger line nunber, it assunes the one it 
was looking for doesn't exist. The screen editor can be used 
to re-order the progran, but since the screen editor is 
subject to the sane restriction in finding lines, you will 
need to experinent for awhile to get down the techniques of 
editing an out-of-order progran. 

If your progran stops with an out-of-nenory error, you nay 
free the IK used by N717I by giving the BASIC connand POKE 
135,32. 


One application of these techniques is the use of the 
RESEQUENCER progran (DA3777-RA3388) to resequence a progran 
already in nenory. If N7I71 was not already in nenory, the 
pointers for the existing progran can be read by the connand 
?PEEK(124);PEEK(125). Then load H7I7I and use POKE 124, 
:P0KE 123, to restore the pointers. Use M7I71 to load 
RESEGUEWCER, and then start it by the connand RUN A3888. 
RESEQUENCER prints an * for each line, and the line nunbers 
of any lines where the new argunenl of GOTO, GOSUB, or THEN 
has nor* digits than the old one, and nay have overwritten 
the connand. 
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PRICE ; $2.00 POSTPAID 

ORDER FROM: ALFRED J. BRUEY 

201 S. GRINNELL ST. 
JACKSON, MICH. 14-9203 


If you have an input jack 
on your hi-fi or other 
audio amplifier, you can 
make your PET play music 
with less than $5.00 worth 
of parts (not included). 
Easy ten minute construc¬ 
tion, completely described. 
Also includes software in¬ 
structions with three music 
playing programs with de¬ 
tailed explanations. The 
report also contains ideas 
for further expansion of 
your system. 
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D63777-R63888 ( Delete and Resequence) 

modifications by Jim Russo and Henry Chou 

. 43777 PRINT-DELETE LINES J TO K (J,K)“:INPUTJ,K 

43779 PRINT"3":F0RI=JT0J+8:IFI>KTHEN63780 
4377? PRINTI:NEXT:PRINT-J=”J+9-:K=”K"tG0T063778 

43780 POKE525,IO:FORI=OT09:POKE527+I,I3:NEXT:PRINT““;:END 
43889 PR1NT"RES£QUENCE”:1NPUT"FIRST,INCREHENT";Z,K 

43985 DIHL(254):L = 1025:DEFFNR(X)*PEEK(X)+254*F'EEK(X + 1) 

43984 DEFFNHU) = INT(<K»X-K*Z)/254> 

43987 N=FNR(L)sX=FNR<L»2)sIF X<43777 THEN A=A+1tL(A) =XjL=N:G 
OTO 43987 

4398? L*!025:F0R B = 1 TO A:H=FNR(L):P0XE(L*3),FNM(8> 

43990 P0XE(L+2),X»8-X»Z-254*fNH!B) 

43991 F=0:FOR C=l*4T0N-1 :P*PEEK(C): IF P=1 370R P=I4I0R P*167T 
HEN F-l:OOTO 4399? 

43992 IF F>0THENF=0:IFP<58 THENF=1iG=G*l:IFP747THEN D=10«D+P 
-4B:G0T0 4399? 

43993 IF D = 0 GOTO 4399? 

43994 FOR E=l TO A:IF D=L(E)GOTO 43994 

43995 NEXT E:D=01G = 0:GO TO 4399? 

43994 D = 0: EI =" -*STR<(E*K-K+Z):H=LEN(E4):C=C-G:IFP<48THE 

NG=G-1:C=C+1 

43997 ifh-4>gthenprintb»k-k*z;e*k-k+z; 

43999 FOR I-ITOGiPOKE C,ASC(MID*(ET,I+H-G,1)):C=CHiNEXT I:G 
=0 

4399? NEXT C:L-N:PRINT"**;:NEXT B:END 
Ced. note: this is a codification to the previously published 
RESEOUENCER uith line delete capability added. Henry and Jin 
use it in conjunction with MERGER or M7171. This version 
will resequence ON..GOTO uith an error signal and will change 
the nunber if you leave enough spaces before the line 
numbers.3 



You can use the versatile new BETSI 
to plug the more than 150 S-100 bus 
expansion boards directly into your PET*! 

On a single PC card, BETSI has both interface circuitry and a 4-slot S-100 motherboard. With 
BETSI. you can instantly use the better than 150 boards developed for the S-IOO bus For 
expanding your PE I s memory and I O. BETSI gives you the interlace. The single board 
has both the complete interface circuitry required and a 4-slot S-100 motherboard, plus an 
XO-pin PEI connector. BET SI connects to any S-100 type power supply and plugs directly 
into the memory expansion connector on the side of your PE F’s case. And that’s it. You 
need no additional cables, interfaces or backplanes. You don’t have to modify your PET in 
any way. and BETSI doesn’t interfere with PET’s IEEE or parallel ports. And when you 
want to move your system -BETSI instantly detaches from your PET. 

BETSI is compatible with virtually all of the S-100 boardsonthe market, including memory and 
I/O boards. BE. I SI has an on-board controller that allows the use ot the high-density low-power 
“Expundoram" dynamic memory board from S I) Sales. This means you can expand your 
PET to its full T2K limit on a single S-100 card! Plus, you won't reduce PET’s speed when 
you use either dynamic or static RAM expansion with BE. I SI Additionally. BE I SI has 
four on-board sockets and decoding circuitry tor up to XK ol 2716-type PROM expansion 
(to make use ot luture PEE software available on PROM) BE I SI jumpers will address the 
PROMs anywhere within your PET’s ROM area. too. 


The BETSI Interface/Motherboard Kit includes all 
components, a 100-pin connector, and complete 
assembly and operating instructions for SI 19. 

The Assembled BE TSI hoard has four 100-pin 
connectors, complete operating instructions and a 
full (y-monih W arrantv for just M 6 5. 




Bt. TSI if the newI nlerface ‘ Mot her board from Forethought 
Products—the makers of Kl \/ST m —which allow* users of 
Commodore i PUT Personal C omputer to instantly work 
with the scores of memory and 11 () board% developed foe the 
S -l 00 llmsai/ \ltair type) has. HI. TSI if available from stock 
on a tingle x I0~printed circuit card. 



HI T S / n a » oilahie off-the-shelf from i -our local dealer nr (if 
they re out I directly from the manufacturer 


Ask about our 
memory prices, too! 


FORETHOUGHT PRODUCTS 

*7070 Dukhohar Ko«d *L 
E ugrnc. Oregon ‘^402 
Phone <*0 4X5-8575. 

*1*1 f i* j Commodore pf.>duvt 
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IEEE Bus Handshake Routine in Machine Language 

John A Cooke University of Edinburgh 
reprinted from Commodore PET Users Club 
Newsletter, England 

To use the IEEE-488 bus on the PET at maximum speeo it is 
necessary to use machine language rather then BASIC ■'INPUT' 
and 'PRINT', The routine given here has been used with an 
HP3137A systems voltmeter to reach data transfer speeds of 
over 5000 bytes per second, corresponding to 2500 voltage 
readings in 2-byte packed binary format or 625 readings in 
8-byte ASCII format. The best speed attained in BASIC is 75 
readings per second transferred as character strings. 

The IEEE Bus 


Details of the IEEE-488 bus are given in PET 
documentation, but some clarification of the register 
addresses is helpful. These arei 


HEX 

DECIMAL 

BITS 

IEEE 

DIRECTION 

E620 

59424 

0-7 

DIO 1-8 

from bus 

E822 

59426 

0-7 

DIO 1-8 

to bus; 'FET'controlled 

E821 

59425 

3 

NDAC 

'PET' controlled 

E823 

59427 

3 

DAV 

'PET' controlled 

E840 

59456 

0 

NDAC 

from bus 



1 

NRFD 

'PET' controlled 



2 

ATN 

'PET' controlled 



6 

NRFD 

from bus 



7 

DAV 

from bus 

Note 

that on the 

IEEE bus 

, 'high' is 

logic false and 'low' is 

logic 

true; and 

that the 

data bus must be left with all bits 

'high 

' when PET 

has finished to avoid 

confusion of data put 


to the bus by other devices. 

The Program 

The program controls a given number of data transfers, 
each of 8 bytes, from the HP3437A to the PET, Each one is 
preceded by a trigger (GET - group execute trigger) on the 
IEEE bus, and the HP3437A must be correctly addressed as a 
'talker' or a 'listener' at all times by sending MIA (my talk 
address) or HLA (my listen address) before transfers as 
appropriate. The sending of messages (GET, MIA, MLA, etc.) 
or data is controlled by the ATN line; ATN is true when 
messages are being sent. 

The program and returned data are held in the top 2K of 
memory; this is hidden from BASIC using POKE 134,255 1 POKE 
135,23 as the first line of the BASIC control program. The 
number of readings required is POKE'd into 6400 (decimal), 
then control passed to the machine language program by 
STS16M1). The data bytes coming in on the IEEE bus are 
stored in locations 6401 (decimal) onwards; these are PEEKed 
out on return to BASIC, and converted into numbers using the 
function UAL. As the index register is used for counting, 
only 256 bytes can be transferred using this rogram, but it 
would be easy to modify the program to perform more 
transfers. 

Disassembled listings with comments and a separate 
listing (for ease of copying into BASIC DATA statements!) are 
given. 

This program was prepared using a machine language handler 
vrit‘-n h" the -»uthor, and the listings produced by this 
handler ana by a modified version of the 'disassemble' part 
of the PETSOFT ASSEMBLER 'EXEC' program. 


180E 208018 JSR 1880 handshake Into bus 

1811 A908 LDA #08 GET 

1813 BSOi STA 01 

1815 208018 JSR 1880 handshake 

1818 A948 LDA #48 HTA 

181A 8501 STA 01 

181C 208018 JSR 1880 handshake 

181F A9FD LDA #FD sec NRFD low (ready to receive data) 

1821 2D40E8 AND E8A0 

1824 8D40E8 STA E840 

1827 A9F7 LDA #F7 and NDAC low also 

1829 2D21E8 AND E821 

182C 8D21E8 STA E821 

182F A904 LDA #04 set ATN high 

1831 0D40E8 ORA E840 

1834 8D40E8 STA E840 

1837 A008 LDY #08 ready to count 8 bytes 

1839 20B018 JSR 18B0 handshake data from bus 

183C A502 LDA 02 result to A 

183E 9D0119 STA 1901,X store in 1901+X 

1841 E8 1NX 

1842 88 DEY 

1843 D0F4 BNE 1839 jump if Y not zero 

1845 A9F3 LDA #FB set ATN low 

1847 2D40E8 AND E840 

184A 8D40E8 STA E840 

184D A902 LDA #02 set NRFD high 

184F 0D40E8 ORA E840 

1852 8D40E8 STA E840 

1855 A908 LDA #08 set NDAC high 

1857 OD21E8 ORA E821 

185A 8D21E8 STA E821 

185D A95F LDA 15? UNT 

185F 8501 STA 01 

1861 208018 JSR 1880 handshake to bus 

1864 A904 LDA #04 set ATN high 

1866 0D40E3 ORA E840 

1869 8D40E8 STA E840 

I860 CE0019 DEC 1900 decrease counter 

186F D091 BNE 1802 jump if not zero P 

1871 60 RTS return to BASIC program 

subroutine to handls handshake into bus 


1880 AD40E8 LDA E840 NRFD T 

1883 2940 AND 440 

1885 F0F9 BEQ 1880 jump back if not ready 

1837 A501 LDA 01 ready: get data byte 

1889 49FF EOR #FF complement it 

188B 8D22E8 STA E822 send to but 

188E A9F7 LDA #F7 set DAV low 

1890 2D23E8 AND E823 

1893 8D23E8 STA E823 

1896 AD40E8 LDA E840 NDAC T 

1899 2901 AND #01 

189B F0F9 BEQ 1896 jump back if not accepted 

189D A908 LDA #08 accepted; set DAV high 

189F OD23E8 ORA E323 
18A2 8D23E8 STA E823 

18A5 A9FF LDA #FF 255 int0 bu * 

18A7 8D22E8 STA E822 0 

18AA 60 RTS return to main 


subroutine to handle handshake from bus 


IEEE bus handshake routine - main program 


1800 A200 LDX #00 prepare index register 

1802 A9F3 LDA #FB set ATN low 

1804 2D40E8 AND E840 

1807 8D40E8 STA E840 

180A A928 LDA #28 MLA (28 for this device) 
1S0C 8501 STA 01 


18BO A902 LDA #02 set NRFD high 

1882 0D40E3 ORA E840 

1685 8D40E8 STA E840 

1888 AD40E8 LDA E840 DAV T 

18B8 2980 AND *80 

18SD D0F9 BSE 13B8 -jump back if not valid 

18BF AD20E8 LDA E820 get data byte from bus 

18C2 49FF EOR #FF complement 

18C4 8502 STA 02 store in t 0002 


8 



18C6 

A9FD 

LDA 

MFD 

set NRFD low 

18C8 

2D40E8 

AND 

E840 


I8CB 

8D40E8 

STA 

ES40 


18CE 

A908 

LDA 

*08 

set NDAC high 

16DO 

OD21E8 

ORA 

E821 


18D3 

8D21E8 

STA 

E821 


1SD6 

AD40E3 

LDA 

£840 

DAV high 7 

18D9 

2980 

AND 

*80 


18DB 

FOF9 

BEQ 

1SD6 

jump back if not 

18DD 

A9F7 

LDA 

*F7 

set NDAC low 

18DF 

2D21E8 

AND 

E821 


18E2 

8D21E8 

STA 

E821 


18E5 

A9FF 

LDA 

AFF 

255^g into bus 

18E7 

8D22E8 

STA 

E822 

18EA 

60 

RTS 


return to main 


IEEE 

bus 

handshake 

! routine 

listing 

1800 

A2 

00 

A9 

FB 

2D 

40 

E8 

8D 

1808 

40 

E8 

A9 

28 

35 

01 

20 

80 

1810 

18 

A9 08 

85 

01 

20 

80 

18 

1813 

A9 

48 

85 

01 

20 

80 

18 

A9 

1820 

FD 

2D 

40 

E8 

8D 

40 

E8 

A9 

1828 

F7 

2D 

21 

E8 

BD 

21 

E8 

A9 

1830 

04 

OD 

40 

E8 

8D 

40 

E8 

AO 

1838 

08 

20 

BO 

18 

A5 

02 

9D 

01 

1840 

19 

E8 

88 

DO 

F4 

A9 

FB 

2D 

1848 

40 

E8 

8D 

40 

E8 

A9 

02 

OD 

1850 

40 

E8 

8D 

40 

E8 

A9 

08 

OD 

1858 

21 

E8 

8D 

21 

E8 

A9 

5F 

85 

1860 

01 

20 

80 

18 

A9 

04 

OD 

40 

1868 

E8 

8D 

40 

E8 

CE 

00 

19 

DO 

1870 

91 

60 

EA 

EA 

EA 

EA 

EA 

EA 

1878 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

En 

1880 

AD 

40 

E8 

29 

40 

FO 

F9 

A5 

1888 

01 

49 

FF 

8D 

22 

E8 

A9 

F7 

1890 

2D 

23 

E8 

8D 

23 

E8 

AD 

40 

1898 

E8 

29 

01 

FO 

F9 

A9 

08 

OD 

18 AO 

23 

E8 

8D 

23 

E8 

A9 

FF 

8D 

18A8 

22 

E8 

60 EA 

EA 

EA 

EA 

EA 

18B0 

A9 

02 

OD 

40 

E8 

8D 

40 

E8 

18B8 

AD 

40 

E8 

29 

80 

DO 

F9 

AD 

18C0 

20 

E8 

49 

FF 

85 

02 

A9 

FD 

18C8 

2D 

40 

E8 

8D 

40 

E8 

A9 

08 

18D0 

OD 

21 

E8 

8D 

21 

E8 

AD 

40 

18D8 

E8 

29 

80 

FO 

F9 

A9 

F7 

2D 

18E0 

21 

E8 

8D 

21 

E8 

A9 

FF 

8D 

18E8 

22 

E8 

60 







0001 data to go into bus 
0002 data from bus 

1900 counter for number of data transfers 
o 

1901 start of results area 


Getting Started in Machine Language 

by Michael Riley, Philadelphia 


The ''4500 Programing Manual' has all the necessary 
inforsation for programing the 4502. If you've never done 
nachine linkage programing, however, you say wish to try 
'Programing a Microcosputer: 4502'. This book contains sost 
of the saterial in the nanual, but is written sore for 
beginners. 'The first Book of KIM' contains sany gase 
prograss such as 'Lunar Lander' as well as sose utility 
prograss like 'Relocate'. The last page of this book has an 
excellent chart that nakes finding of codes a breere. 

I have found that prograssing is such easier if I write^ 
first in BASIC to test the logic and then translate it onT 
section at a tise into nachine code. A nesory sap of the ROM 
helps se to avoid writing routines that are already 
available. 

A version of the Machine Language Monitor called 
'HIMONDIS' (sonitor and disassesbler in high senory) is very 
helpful. Because it is in high nenory, it can coexist with a 
BASIC progran. The disassesbler sakes debugging such easier. 

Uhen writing a progras, the pointers at 134 and 135 ($84 
and $37 — low byte first) are typically changed to point to 
a spot just below the nachine language code.. This tells 
BASIC that it sust store its variables below this point. 

After the progras is cospleted, you can restore these 
pointers so they point to the top of nesory, while at the 
sane tine, raising the pointers which indicate the top of 
your BASIC progran (124 and 125, or $74 and $77). This will 
cause your progras to store its variables where HIMONDIS used 
to be, and allow you to save and load the entire progras with 
a single SAVE or LOAD cosnand. 

fed. note: 4500 Prograssing Manual is fron Cossodore/HOS 
Technology; Prograssing a Micro: 4502 is Addison-Uesley; and 
First Book of KIM is fron Hayden. 1 


, WHEN > 
WRITING 


, WHEN , 
FINISHED 


Lower fop 
of memory 
allocated 
Poke 134,0 
Poke 135,22 



HIMONDIS 


MACHINE 

CODE 


BASIC 

VARIABLES 



BASIC 


$1AOO 


$1600 


BASIC 

VARIABLES 


MACHINE 

CODE 


UNUSED 


BASIC 


PROGRAM 


PROGRAM 


OPR.SYST. 


$0400 4 - 

I OPR.SYST. 


Reset pointers 
to top of 
memory 

Poke 134,0 
Poke 135,32 


And raise 
pointers to top 
of BASIC 
Poke 124,0 
Poke 135,26 


User Defined Functions 

Joseph Patriarch 


Modulus or Residue function. Result'A nod (N) or result is 
the reminder after A is divided by M. Note: M is a reserved 
variable and nust be defined before the function is used. 

DEF FNA(A)»A-ABS(M)*IHT(A/A3S(H>> 

Result of residue always positive 

To generate randon nunbers having a nornal distribution with 
neaa 0 and a deviation of 1 use: 

FNN<x)»SCR(-2»LOG(RMD(X)))*COS(2»pi«RND(X>) 

Inverse sine and cosine: 

DEF FKS(x)-ATN(X/S3R(l-X*X)-n«ABS(x))«lE-30)) 

DEF FME(x)-ATM<5uR(l-X'X)/(X-(0*X)»IE-30>) 

9 


Hyperbolic functions: 

DEF FMS(H)«(EXP(H)-EXP(-H))/2 
DEF FHC(H)*(EXP(H)*EXP(-H))/2 
DEF FMT(H)*FNS(H)/FNC(H) 

or ■<EXP(H)-EXP(-H))/(EXP<X>*EXP<-X>> 

Inverse hyperbolic functions! 

DEF FHS(HI)-LOG(HI*SOR(HI»HIM)> 

DEF FNC(Hl)-LOG(HI*SaR(HI*HI-l)) 

DEF FNf (HI )«0.5»L0G( ( I *H1 )/( 1 -HI* (HI«I )«lE-30> ) 

Log(lO) X: 

DEF F ML(X)"L0G»0. 434274482 
N! (factorial): 

DEF FMF(N)«N‘M*£XP(-M)*S0R(2*pi*N) 
or nore accurate: 

DEF FMF(M)-N-MeSGR(2*pi*M)*EXP(l/< t2»N>♦(1 -1/<30»N*M>>-*> 


Merger 

Jim Russo and Henry Chou, Detroit 

Load and run MERGER. Now load the first program that is 
to be Merged. This progran Must have the lowest line 
nunbers. Each progran that is to be Merged Must have 
self-contained unique nunbers. After the first progran is 
loaded, use SYS826. Load the next progran that is to be 
Merged. Use RESEQUENCER to correctly position all line 
nunbers beforehand if it is necessary. When the PET responds 
that the progran is found, STOP the loading process with STOP 
key as soon as the title of the progran is found. Use 
STSflit, and when the tape stops the two prograns will be 
Merged. 

If another progran is to be Merged, use SYS824 and repeat 
the sequence. 

In case of problens, check to be sure that the first 
progran to be nerged has its RAM location 124 and 125 (dec.) 
equal to the actual end of the BASIC progran. If it isn't, 
the locations nust be PCKEd to the RAM location after the 
occurance of the first three 00's (end of progran). 

8? A=824iFORI=IT01?2:READBIiP0KEA,BTiA l A+1:NEXTiEND 
90 DATA 56,173,125,2,233,t,Ml,212,3,173,124,2 
100 DATA 233,0,141,293,3,96,173,242,3, 141,123,2 
110 DATA 173,243,3,141,124,2,56,173,125,2,234,234 
120 DATA 148,173,126,2,233,4,170,152,24,109,242,3 
130 DATA 141,125,2,138,109,243,3,141,126,2,54,173 
140 DATA 125,2,237,134,0,173,124,2,237,135,0,14 
150 DATA 13,32,77,246,32,34,244,32,138,248,32,238 
160 DATA 243,0,149,206,160,3,32,39,202,0,94,83 
170 DATA 32,84,79,79,32,84,79,32,77,49,82,71 
180 DATA 49,32,0,96,11,137,150,137,10,130,130,2 
190 DATA 56,173,125,2,237,134,0,173,126,2,237,133,0,48 
200 DATA 5,32,77,246,94,169,134,160,3,32,3,32 
210 DATA 39,202,84,72,73,83,32,80,82,79,71,82 
220 DATA 45,77,32,45,83,32,84,79,79,32,76,79 
230 DATA 78,71,32,84,79,32,77,49,82,71,49,32 
240 DATA 0,94,135,5,92,94,98,124,39,116,230,118 
READY. 


Led. note: nerge 

capabilities are 

in M7171 

as well, but 

MERGER 

resides in 

second cassette 

area, so 

doesn't reduce 

nenory. 

J p- 





- . . 

033A 

38 



SEC 



033B 

AD 

7D 

02 

LDA 

637 

Loads tape header 

033E 

E9 

04 


SBC IM 

4 

from first program 

0340 

8D 

F2 

03 

STA 

1,0 1 0 

and subtracts 4 

0343 

AD 

7E 

02 

LDA 

63 8 


0346 

E9 

00 


S8C IM 

0 


0343 

8D 

F3 

03 

STA 

1011 


0343 

60 



RTS 



034C 

° AD 

F2 

03 

LDA 

1010 

Combines old tape 

03 4 F 

8D 

7B 

02 

STA 

635 

header with new 

03 52 

AD 

F3 

03 

LDA 

1011 

header & checks 

0355 

8D 

7C 

02 

STA 

636 

the length of pgm 

0358 

38 



SEC 


to see if its too Ion; 

0359 

AD 

7 D 

02 

LDA 

637 


0 3 5C 

EA 



NOP 



03 5 D 

EA 



NOP 



035E 

A 8 



TAT 



0 3 5 F 

AD 

7 E 

02 

LDA 

638 


0362 

E9 

04 


SBC IM 

4 


0364 

AA 



TAX 


. 

0365 

98 



TYA 



0 3 o 

1 8 



CL C 



0367 

6D 

F2 

03 

ADC 

1010 • 


0 3 6A 

8D 

7 D 

02 

STA 

637 


036D 

8 A 



TXA 



0 3 6 E 

6D 

F3 

03 

ADC 

1011 


037 1 

8D 

7 E 

02 

STA 

638 


0374 

38 



SEC 


- 

0375 

AD 

7 D 

02 

LCA 

637 


0373 

ED 

86 

00 

sac 

134 

, 1 ' • ' 1 

0379 

AD 

7 E 

02 

LDA 

638 


037E 

ED 

87 

00 

sac 

135 


0381 

1 0 

0 D 


BPL 

l 3 



0383 

20 

4 D 

F6 

JSR 

63053 

Starts loading of 

0386 

20 

22 

F 4 

JSR 

62498 

2nd pgm if enough 

0389 

20 

8A 

F8 

JSR 

63626 

RAM is available 

038C 

20 

EE 

F3 

JSR 

62446 


038F 

00 



BRK 



0390 

A 9 

CE 


LDA IM 

206 


0392 

A0 

03 


LDYIM 

3 


0394 

20 

27 

CA 

JSR 

51751 

Go to message 

0397 

00 



BRK 


0393 

60 



RTS 


that combined the 

039A 

20 

54 

4 F 

JSR 

20308 

program Is' too 

039E 

20 

54 

4 F 

JSR 

20308 

long for the 

03 A 1 

20 

4 D 

45 

JSR 

17741 

available RAM 

03A6 

45 

20 


ECRZ 

32 


03A8 

00 



BRK 



03A9 

60 



RTS 



03 AC 

96 

89 


STXZY 

137 ’ 


03AE 

0A 



ASLA 



03B2 

38 



SEC 



03B3 

AD 

7 D 

02 

LDA 

637 


03B6 

ED 

86" 

00 

SBC 

134 


03B9 

AD 

7E 

02 

LDA 

638 .. 

" * * 

038C 

ED 

87 

00 

SBC 

135 


03BF 

30 

05 


8MI 

5 


g3SI 

IS 

4D 

F 6 

JSR 

RTS 

63053 


03C5 

A 9 

86 


LDA IM 

134 


03C 7 

A0 

03 


LDYIM 

3 


03C 9 

20 

03 

20 

JSR 

81 9S 


0 3CD 

CA 



DEX 


• 

03CF 

48 



PHA 

/ 


03D0 

03D2 

49 

20 

53 

50 

52 

EORIM 

Osjt 

63/ 

2/072 

Message 

03D8 

4 1 

4 D 


ECRTX 

/n 

' i 

0 3 DA 

20 

41 

53 

JSR \/ 

21313 


03DD 

20 

54 

4F 

JSR A 

20308 

...- r 

03E 1 

20 

4C 

4 F 

JSR/ 

\20300 


03E4 

4E 

47 

20 

LSR 

82 63 

Old header shored 

03E9 

20 

4 D 

45 

JSR 

1 7^4 1 

in 3F2 & 3F3 

03EE 

45 

20 


EOHZ 

32 


03F0 

00 



BRK 



03 FI 

60 



RTS 




O 


SCHOOLS 

Our. grade averaging 
pregram provides: 
-choice of entry from 
keyboard or DATA 
-choice of output: PET 
screen or ovn device 
-Shell-.Met7.ner sort of 
student names 
-selective exclusion 
of certain grades 
-alpha list of students 
and grade • . 

-class average 
-bargroph of mark dis¬ 
tribution 

Set of 2 tapes, $13.00 
from: KOBI.TEK 

RK//1, Wolfville 
Nova Scotia 
Canada BOP 1X0 
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CQ!V3Elj\JATiar\J: FLOPPY DISK CONTROLLER 

1771 LSI Controller - SA400 Minifloppy (80 KB) 
IBM 3740 Format (compatible with other systems) 



ADAPTOR 


Memory Expansion Port to SI00 Bus I 
Fully Buffered, Address Mirroring, 

Proven 6502/SI00 Design, Full S100 Control 




AOAPTEI 


EXSIOO BOARD ASSEMBELED 
AS SIOO ADAPTOR DIMLY 




I# 


PY D1S 


SA400 Minifloppy - 80kb 
EXSIOO Disk Controller, 

Disk Box, Disk Power Supply, 
Cassette Software 






SA400 Minifloppy - 80kb 
EXSIOO Combination Board, 

Disk Box, 3 Slot S100 Motherboard, 
S100 Power Supply 8v@6A, - 16v@lA 
Cassette Software 


CO) 




-ja 



CGRS MSCRDTECH 

P.O. BOX 368 
Southampton, Pa. 1896S 


* TRADEMARK OF COMMODORE C2053 757-0284 










SYMBOL T8PLE 


PET Renumber 3.0 

Bill Seller 


SVMBDL VALUE 


PET Renunber occupies 384 bytes at the end of an 8X PET 
RAN memory. The POKE 134,128 and POKE 135,30 statements set 
the lop end of PET BASIC working memory below the PET 
Renumber routine. This protects Renunber from BASIC. 

The SYS7808 transfers control to the PET Renumber Progran. 
The progran uses the IK of screen memory as a storage 
buffer for the old line numbers. It first copies the old 
line nunbers to the screen buffer. On this first pass PET- 
Renunber generates the new line nunbers and inserts then at 
the beginning of each line. 

On the second pass PET Renunber fixes the THEN, GOTO, 
GOSL'B, and PUN line nunber references. It looks for these 
tokens followed by an ASCII nunber. If there is a nunber, it 
searches the old line nunber in the screen buffer and 
generates its new nunber. If the nunber is found, the new 
nunber is inserted after the token. 

If the new line nunber is snaller or larger than the old, 
the source is appropriately expanded or conpressed one byte 
at a tine fron the point where the new nunber is inserted. 

After the second pass is conpleted, PET Renunber goes into 
a routine to fix line links, then goes back into BASIC. 

linitat ionsi 

PET Renunber uses the IK TV screen RAN as a buffer. Old 
line nunbers take two bytes each, thus the screen buffer can 
only hold 511 old line nunbers. Also, the routine occupiei 
384 bytes of the 7147 bytes free to the user. This linits 
the size of the progran after renunbering to 4783 bytes. 

LOAD PET RENUNBER 
TYPE NEU 

POKE 134,123: POKE 135,30 

LOAD the progran to be renunbered 

TYPE SYS 7808 

Uhen the cursor returns your progran is renunbered starting 
at 100 step by 10. 

To change the start nunber: 

POKE 780V,LLL Lo BYTE Start « in 

POKE 7813,HHH Hi BYTE 2 byte binary 

To change the step size: 

POKE 7817,SSS step size < 254 

THEN, SOTO, GOSUB, RUN, ON X GOTO, and ON X GOSUB will be 
renunbered. 

Branches to non-existent line nunbers will be converted to 
branches to line nunber 45535 (an illegal line nuhber). 

Save PET Renunber with: 

LOAD PET RENUNBER 

LOAD and RUN Hachine Language Nonitor 
TYPE .S 01,PET RENUNBER,IE80,2000 


Direct Cursor Positioning/Animation in BASIC 

John Bell Ncleen, VA 

Rather than incrementally stepping the curior to sone X,T 
ccor J : n»*. r cn the screen, direct cursor positioning (placing 
it there in one operation) is a preferred nethod of plotting 
or animating your PEI. After many hours of experimenting I 
developed the following DCP routine. 

POKE 245,Ti PRINT "cu"; TAB(X)J X* 

where XI is the character or string to be printed. Note that 
the T coordinate (vertical) must be set first, and a 
FRINT'cu" statement is required before the TAB instruction, 
the PRINT following the POKE resets the cursor location, 
otherwise it causes a print after the previous cursor 
position and then resets the location. 


AAR* 

1EF9 

RBDSTP 

lFCfi 

BEGNUM 

004*4 

BRTS 

1FEA 

CHPGET 

00C2 

CHPGDT 

0PC8 

CDP2Q 

1 EM 1 

CDP80 

1EC3 

F8CTO 

GOBI 

c I M I 

C430 

FM O 

1F45 

C N20 

1E33 

FOOT 

PCAF 

GP1G 

1FF3 

IMI'EXl 

0071 

IMPEX2 

0073 

MI> 1 O 

1F9G 

MD20 

1FA2 

MP4 O 

1FAF 

MOVPUM 

1F93 

MU2 0 

1F86 

MU4 0 

1F88 

REMM 

1ECB 

PM 1 0 

1ED5 

PN30 

1EE6 

RM35 

1EE9 

PH30 

1EF8 

PNGO 

1F t 3 

PN73 

1F2M 

RN78 

1F2C 

SETFRC 

IFC 1 

SETPTP 

1FB0 

STEP 

004 D 

TOKEN 

1FF$ 

vfiPtrb 

007C 



(ARTS 

1FD5 

BEGIN 

004E 

PUPX1 

1FE4 

BUPX2 

1FE! 

CMPX 

lFPfc. 

COP1 O 

1E9F 

CDPMUM 

1E8C 

CRTS 

1FE0 

FI MUM 

1F3A 

FLDfln; 

IiP t B 

FN50 

IFG3 

FH4> U 

1F69 

GRAB 

1FEB 

IMCNUM 

00 OA 

L1MGET 

C893 

LIMMUM 

0003 

M030 

1FA7 

MD35 

1 FRO 

MOVIJP 

1F71 

MU 1 0 

IF74 

MU*?* 0 

1F8E 

NUMX 

0050 

PM 15 

IE 08 

PN20 

1EF0 

PM4 0 

1 EEC 

RM4S 

IEEE 

PME5 

1F81 

RM70 

1F27 

RN3 0 

1F 34 

SCREEN 

8000 

SS 

7FFE 

START 

1E80 

TXTPTP 

00C9 

TXT TAB 

0078 


• • • 



• • 


< 


hard copy from 
Commodore PE 


T® : 


]*THE SIGMA PI-I INTERFACE COUPLES 
A STANVARV PET TO THE SOUTHWEST■ 
PR-40 PRINTER VIA THE IEEE PORT < 

AVVITIONAL CABLE OR PLUGS ARE] 
REQUIREV IF THE PRINTER HAS BEEN 1 
BUILT TO PLUG INTO THE SOUTHWEST « 
6800 COMPUTER SYSTEM 


* FUL LV ASSEMBLEV 
^POSTPAID 
*SATISFACTION 
GUARANTEEV » 

uijJjjio-Liiil 


$ 3995 { 

- '*'*"*'4 

SIGMA ASSOCIATES . 


BOX 2065 


. , , | PRINCETON NJ 08540 \ 

-i. 1 * T * ~* l^ - .w — i • . A -» •*• * / ‘ ■ 
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o 


3. 0 

PET RENUMBER. . . . 

.PAGE 0001 

3.0 PET RENUMBER.. 

... 

.PAGE 0002 


LIME 

o LOO- 

COPE 

LIME 

LINE 

o LOC 


CODE 

LIME 


OOn? 

0000 



0051 

0000 




1 DEFAULT 1 


00 03 

00 0 0 


1 

0052 

0000 




I FI PST.LIME MUMPER • 

100 

00 04 

0000 


5 

0053 

oooo 




( STEP BY 10 


On 05 

0000 


1 RENUMBER PET BASIC 

0054 

oooo 




1 


Onn6 

0 0 0 0 


l 

0055 

oooo 




I FDR iilFFEPENT START 

NUMBER 

0 007 

oooo 


1 <C) COPYPIGHT 197A 

0056 

oooo 




1 POKE 7309,XXX LD BYTE 

00 0,3 

00no 


I BY B. SEILER 

0057 

oooo 




I PE 7813,X HI BYTE 


00 0-3 

0 n o 0 


1 ALL RIGHTS RESERVED 

0058 

oooo 




; 


00! 0 

000O 


« 

0059 

oooo 




i FDR A PIFFEPEMT STEP 

001 I 

On oo 


1 

0060 

oooo 




1 POKE 7817.XXX STEP 

SI7E <256 

001.? 

Onr.o 



0061 

0 n 0 0 




; 






0062 

oooo 




i 






0083 

oooo 




*****************. 


0014 

0000 


BEGMUM=100 








001 3 

0000 


IMCMUN=10 








0OJ6 

Onno 


VAPTAB»1-0P7C 

0065 
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L I MNUM*fnn0-9 
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64 
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4E 
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4F 
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89 
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PENN 
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81 
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81 

7B 
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PUE 
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0169 

1F38 
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EB 
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EB 
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PO 
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PNE 
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0120 

IF DP 

4C 

30 

C4 
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0173 

IF38 

20 

Cl 

IF 
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20 

EB 

IF 
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jp 
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0174 
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8? 
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LDR 
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IEE3 

20 

EB 

IF 
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0175 

1F3F 

35 

73 
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IEE6 

20 

EB 

IF 
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j:-p 
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89 
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0124 

1 EE 9 
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TRX 
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0177 

1F43 

85 
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0121 

1EE8 

FO 

E9 



PER 
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I YES-LOOP 

01 78 

1F45 

80 

01 
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a I 
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0120 

1 E EC 
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0179 

IF47 

PI 
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LPR 

(INDEX?).Y 
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0127 

1E E C 

82 

04 


PN4 0 

ld:< 

::4 
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0180 

1F49 

C5 

09 



CMP 
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0128 

1 FEE 

PP 

F 5 

IF 

PN45 
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0181 

1F4P 

FO 
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BE C< 
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0129 

IEF 1 

FO 

01 



PEO 

PI 150 

(YES-THEN FIX IT 

0182 

1F4P 

C9 

FF 



CMP 

a*FF 
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01 30 

1FE3 

C8 




PEX 


INO-TPY NEXT TOKEN IN TRBLE 

0183 

1F4F 

PO 

18 



BNE 

FII60 

(NO-INC NEW line a 

0131 

1EF4 

PO 

F8 



PME 

PN41 

(NOT PONE-LOOP 

0184 

IF51 

85 

PI 



STR 

F8C TD 

(YES-PIP NOT FIND IT 

0132 

1EEO 

FO 

FF 



PEO 

PN30- 

1 TRIED 8LL FORGET IT 

0185 

1F53 

85 

BO 



STR 

FACTO-1 

(MAKE a VERY BIG 

0 1 n 

1 FE 9 

81 

C 9 


RN10 

LP8 

TXTPTP 

(YES-SRVE TEXT PTR 

0186 

IP55 

85 

PO 


FN20 

LPR 

FACTO-1 

ISWhP HI'LO FOP 

01 34 

1EF8 

49 




PH8 



0137 

IF57 

85 

P2 



STR 

FBCTO+1 

I CRAZY BASIC 

01 ^1 

1EFP 

81 

C8 



LP6 

TXTPTP+f 


0183 

1 F59 

82 

90 



LPX 

a)90 

("SET. FOP FLOAT 

01 30 

IFF P 

49 




PHR 



0199 

IF5B 

33 




SEC 



0137 

1EFE 

20 

C 2 

00 


JSP 

CHPGET 

! IS 8 a NEXT? 

0190 

1F5C 

20 

IB 

DB 


JSP 

FLORTC 

(FLOAT IT 

01 38 

1 F 0 1 

BO 

F 6 



PC S 

FH 35 

(NO-LOOP 

0191 

IF 5F 

4C 

8F 

PC 


JMP 

FOUT 

(MAKE ASCII IN BUFFER 

0139 

IF 03 

20 

63 

C 8 


J:P 

L1NGET 

JVES-M6XE 8 PIN a 

0192 

1F62 




( 




0140 

IF 00 

20 

38 

IF 


j:p 

F 1IIUM 

(FIND OLD a.MAKE NEW a 

0193 

1 F 62 

88 



FN50l 

PEY 


(CHECK LINE « LO 

0141 

1 F 0« 

68 




PLH 


(MOVE PTP TO a BEGIN 

0194 

1F63 

B 1 

73 



LPR 

(INDEX?).Y 


0I4£ 

IF 08 

81 

C8 
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TXTPTR+1 


0195 

IF65 

C5 

03 



CMP' 

LINNUM 

(IS LO SAME? 

014 3 

IF0C 

69 
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1F67 

FO 

EC 



BE 9 

FN20 

(YES-GO FLOAT IT 

01 44 

IF (ID 

81 

C9 



5 T 8 

TXTPTP 


0197 

1F69 

20 

CR 

IF 

FN60 

JSR 

8PDSTP 

(MA)E NEXT MEW a 

0141 

IF OF 

80 

00 



LPY 

:: 0 

(SET INDEX? 

0199 

1 F6C 

20 

El 

IF 


JSP 

BUPX2 

(BUMP INDEX 2 

0140 

IF 1 1 

82 

00 



L DX 

SO 


0199 

1F6F 

DO 

P4 



BNE 

FN10 

(BRANCH ALWAYS 

014 2 

IF 1 3 

PD 

01 

01 

RN60 

L PR 

F01 01 .X 

(GET 8SCII NEW a 










0148 

IF 16 

FO 

OF 



PFO 

PM? 0 
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0149 

1 F 1 9 

48 




PHR 
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1 F 1 9 

20 

C2 

00 


J SR 

CHPGET 
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1F7I 




(MOVES 

TEXT UP ONE BYTE 

DIM 
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90 

03 



PCC 

PN61 

(YES-SKIP TO PEPL8CE fT 

0202 

1F71 
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0112 
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20 

71 

IF 


jsp 

MOVIJP 

1 NO-MOVE TEXT UP ONE 

0203 

1F71 

20 

BO 

IF 

MOVUP 

JSR 

SETPTR 

1 SETUP 

0153 

1F2I 

69 



PN65 

PL 8 


1 GET S8VEP NEW a 

0204 

IF74 

80 

on 


MU1 0 

LPY 

CO 


0154 

1F 22 

91 

C9 
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(TXTPTP).Y 

1 REPLRCE OLD 
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IF76 

B1 
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0155 

1F24 

£3 




I NX 
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DO 
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91 
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(INPEXI)iY 

(MOVE IT 
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ACCOUNTING PACK 1 — 

Accounting Pack 1 is a general ledger package 
designed for small businesses and homeowners. 
It contains check journal, general ledger, income 
statement (current ytd, previous month ytd and 
current month), balance sheet (current month and 
previous month). There are 15 commands and 6 
reports that can be generated. The system uses an 
unique single-entry bookkeeping system and can 
hold up to 50 entries per period (month, week, day) 
and up to 40 different accounts. Each period s 
data is kept on convenient cassette tapes. Utilizing 
the general ledger command the user can view the 
general ledger entries for the month from Assets 
to Expenses or stop in midstream and view one 
particular account. Or the user can type in an account 
name such as “Advertising” and view the entries 
for that month. The Accounting Pack 1 program 
includes a checkbook reconcilation routine which aids 
in finding checkbook errors. Sawyer Software plans 
updates to Accounting Pack 1 to enable the user to 
use a printer, floppy disk or more memory. Account¬ 
ing Pack 1 is well documented, with a newly updated 
User's Manual. Several businessmen are using 
Accounting Pack 1 and have written to us their 
satisfaction with the program along with their 
purchase of other software. 

. $25.(X) 


SCHEDULE PLANNER — 

Schedule Planner can be used by secretaries, 
receptionists, housewives or anyone wanting to plan 
and have at their fingertips their own schedule. Data 
entered is data: time, priority and description. The 
commands allow the schedule to be shown for a 
particular day, request of time or the “viewing” of 
appointments according to importance. 
. $15.00 


Business Software for your 8K PET 


k k k NEW k k k 


ACCOUNTING PACK II — 

Accounting Pack II is a much more powerful version 
of Accounting Pack I. It has all the features of 
Accounting Pack I, plus up to 250 entries per period, 
MENU, Optional debit-credit of entries, easy addition 
or deletion of accounts, formatter for reports, intelli¬ 
gent report generator and single entry for sales 
transactions. Accounting Pack II requires at least 8K 
additional memory for your PET. OPTIONS: 1. 
Accounting Pack I to Accounting Pack II data file 
converter (free to previous owners of Accounting 
Pack I). 

. $45.00 


BUSINESS ANALYSIS — 

Business Analysis allows management to have 
available to them information for financial planning 
decisions. Up to 4 years of balance sheet and income 
statement information can be entered with resultant 
analysis in the areas of liquidity, leverage, profit¬ 
ability and activity. The ratios generated for each 
year are the: current ratio, acid test, debt-nw, 
profit-nw, profit margin, sales-rec, sales-inv, 
sales-wc, with a brief explaination of each. The 
growth analysis gives the yearly growth in 5 areas 
and the average growth in 5 areas. Future growth 
analysis projects figures for the next year. 
. $30.00 


PAYROLL— 

Especially designed with the small businessman in 
mind. Utilizing cassettes can record data for any 
number of employees (8 employees per cassette). 
Computes tax information and updates totals for 
quarterly and yeariy reports Employees can be 
salaried or hourly and pay periods can be either 
weekly, bi-weekly, semi-mbnthly or monthly. 
. $30.00 


BUSINESS GRAPHIC PACK 1 — 

Business Graphic Pack 1 is a simple program to use. 
but professional in output. The graph includes title, 
labeling of axis, dual graphic ability, whether tne 
data is in Mill's, 100's or 1000's, and an optional 
x-axis = date and labeling of the x-axts with montn 
and year. Entry is as easy as typing the title, # of 
entries, the X,Y value (Jan. 15. 1978 would be 
entered as 115.78), entering if the x-axis = date, if 
the user wants crosshatching and then graphing. 
The program also includes Nth order and Geometric 
regression to give the user a formula for his set of 
data (if possible). 

. $25.00 


CHECKBOOK RECONCILIATION — 

Designed for ease of use and to find those trouble¬ 
some checkbook errors, this program balances your 
checkbook and bank statement from montn to montn. 
It locates over ten different types of errors and 
instructs the user on correcting them, including bank 
statement errors made by your bank. Records data on 
cassette for next month's balancing - saving re-entry 
of figures. 

... $25.00 


SCHEDULE PLANNER If 2 — 

Schedule Planner #2 includes all the features of 
Schedule Planner, but is used for one or more 
Individuals. Utilizing Schedule Planner #2 a customer 
can call in asking when his appointment with Dr. 
Jones is and in seconds the receptionist can give the 
date and time. Or Dr. Jones can find out his scnedule 
for the day. With the viewing command, an appoint¬ 
ment at 12.00 on a particular day will display on the 
screen at that time allowing receptionists and 
secretaries to validate appointments. 
.$ 20.00 


COMING SOON — 

Business Software for your 16K TRS-80. Write or call 
for details and availability. 


FINANCIAL PACK I — 

Financial Pack I includes Amortization Schedule, 
Calendar (which figures days between two dates), 
Rebate (which is calculated on the Rule of 78's). 
Compound, Annuities and Monthly payment. 
. $15.00 


CHESSBOARD — 

Chessboard allows two players to play chess on your 
own PET graphic chessboard This program displays 
each player's time and records each move to allow 
you to playback the game at another time. 
. $15.00 


CALCULATOR — 

Especially for the accountant-bookkeeper. This 
program not only allows your PET to function as a 
calculator, but also has such features as Lister (wnich 
verifies and displays errors between two tape listings) 
and Matrix (which adds columns vertically ana 
horizontally). 

. $10.00 


All Programs include documentation, are in BASIC 
and on cassette. 


Dealer Inquires Invited. 


*PET Is a trademark of Commodore Business 
Machines, Inc. 





201 Worley Road 
Dexter, Mo. 63841 
314-624-761 1 
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■ 0278 

1FEO 

60 


CRTS 

PTS 


0232 

1FHS 

no 

EF 



BME 

MB1 0 

SBRANCH ALWAYS 









02:i? 

1F13 7 

R 4 

7C 


MD30 

LBV 

VAR TAP 

I BO A BOPROU ■ • 









02 34 

IF 8? 

no 

02 



BME 

MB35 

I NO 









0235 

IFRP 

C6 

7P 



BEC 

VAPTAB+1 

1BOPROU > 

0230 

IFE1 



4 INCREMENTS IMDEX2 ONE OP TWO 


0236 

IFRB 

C 6 

7C 


MP35 

DEC 

VRPTRB 

. r 

0231 

IFE1 



4 




023? 

1F RF 

60 



MD4 0 

PTS 



0282 

1FEI 

20 

E4 IF 

BUPX2 

JGP BUPXl 

4 BUMP IMBEX2 TWO 










" r r 

0283 

1RE4 

E6 

73 

BURX1 

INC INBEX2 

4 BUMP IMBEX2 OME 











0284 

1FE6 

BO 

02 


BME BP T S 


* 










r>2?s 

1FE8 

E6 

74 


INC 11IBEX2+ 1 

JABB A CAFPY 


0239 

1FP0 




I SETS 

PTRS 

RPR TEXT 

hOVES 

0236 

IFEA 

60 


BRTS 

RTS 



024 0 

IFPO 




1 












024 1 

IF PO 

R5 

7C 


SETPTR 

LBR 

•VRPTRB 

4 END OF TEXT 









0 24 2 

1FP2 

85 

71 



STR 

INDEX 1 










024 ? 

IF P4 

R5 

7D 



LBR. 

VARTfiB*! 


0283 

1FEP 



I GET A 

CHAP SET ZERO 

FLAG 

, 

02 

IF P6 

%5 

72 



:>TR 

INDEX 14-1 


ric’Srq 

1 FFB 



1 



r 

02 4 s 

IF P8 

R c - 

c? 



LBR 

TXTPTP 

JSTFWT MOVE HERE 

0290 

1FEB 

’ RO 

00 

GRAB 

LBV «0 

4 ZERO IMBEX 


024* 

1 F PR 

85 

73 



STR 

I NBEX2 


0291 

1FED 

E6 

09 


INC TXTPTR 



024 7 

IF PC 

R5 

cn 



LBR 

TXTPTRM 


0292 

1FEF 

BO 

02 


BNE GF: 1 0 


< 

, 024? 

IF BE 

85 

74 



STR 

IMDEX2+1 

t 

0293 

IFF I 

E6 

CA 


INC TXTPTR+I 



0249 

IFCO 

*0 




RTS 



0294 

1FF3 

B1 

C9 

GRI 0 

LBA (TXTPTR) . Y 












0295 

IFF5 

60 



PTS 



02*5 1 

IFF 1 




1 SETS 

tip FACTO AMD 

FACTO-1 









02 52 

IFC1 




I TO 

GENERATE MEW 

LINE *»'S 

0297 

IFF6 



TOKEN 

.BYTE t89 

4 GO TO 


025 3 

1 F C 1 




1 




0298 

1FF7 

8A 



.BYTE BAA ■ 

i pun 


025 4 

1FC1 

A5 

4E 


SETFFtC 

LBR 

BEGIN 

.. * 

0299 

1FF8 

8D 



.BYTE B8P 

4G03UB 


0255 

1FC3 

85 

BO 



STR 

FRCTO-1 

• 

0300 

IFF9 

A 7 


AAAA 

.BYTE BA7 

4 THEM 

- 

0256 

1FC5 

65 

4 F 



LBR 

BEG IN*1 


0301 

1FFA 




.END 

• 

t 








‘ 


... 




.. 

. • V • . . 



\ 
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PET IEEE-488 to SWTPC PR40 Printer Interface Henry Martinez Torrance, CA 



Memory Usage and Garbage Collection 

By Jin Butterfield Toronto 

Host people who take an interest in PET'S inner workings 
know by now that storage from 1025 to 8191 is used as 
follows. Going up fron 1025 there is your BASIC progrBm, 
followed by a table of variables (with fixed, floating , 
string variables and FN definitions) followed by tables of 
arrays. The string variables and arrays, however, are only 
pointers; the actual strings are either within your BASIC 
program (as part of LET or BATA statements), or art stored 
fron 8191 down. 

Since prograns, variables, and arrays sit in the bottom of 
memory, and strings sit at the top, you night think that the 
space in the middle is available. This isn't always true, as 
an example will show. Try the following program 

90 FOR J 3 81A1 TO 81911 POKE J,42l NEXT J 
100 Xt 3 "HELL0G00DBTEXXXXXT?TT7" 

110 AS*LEF7»(XS,5)i G0SUJ 500 
120 AS'RIGHTS(XI,5): G0SUB 500 
400 END 

500 FOR J*81A1T0 81911 PR IKT CHRSiPEEKtJ)>; 1 NEXTJ 1 PRINT 
510 RETURN 
REAOT. 

This program will print two lines, showing you what's in 
the upper part of memory after execution of lines 110 and 
120 . 

Note that XS doesn't show up there; it's used directly out 
of your BASIC program and doesn't need to be stored again. 


At is computed, however, so has to be placed in the string 
teble. The first value of At is "HELLO", and on the first 
line, you'll see the string stored at the top of memory. 

Now, when we change At to the string “TTTTT" this new value 
needs to be stored; you'll see it in line two. 

But what's happening? The original string ("HELLO") it 
still in storage - even though it isn't needed any more. The 
question marks are stored below it; and the HELLO is now 
useless garbage, taking up memory space. As you generate new 
strings they too will be stored further down in memory, 
gradually filling up - and unwanted "garbage" will be left 
above. 

This can't be allowed to continue, of course, or we'd run 
out of memory by filling it with unwanted "garbage". So 
eventually, we must perform a "garbage collection" routine 
to reclaim unused memory. Machine-1anguage fanatics will 
find it in locations D404 to D5C3. It's lengthy and 
time-consuming so it's only performed as needed - usually 
when you run out of memory. This is the main reason that 
very large programs execute slowly - frequent garbage 
collections are required. 

An easy way to force garbage collection to take place is 
to ask for a calculation of unused memory. Add the 
following line to the program! 

130 A»-NI8I(X*,6,7) i F*FRE(0) i G0SU8 500 

Tou'll tee that the new value of AS ('"GOODBYE") has been 
repacked into the top of memory. Tou may see part of the old 
strings below, but they will be written over when the space 
it used again. 
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$795 


THE PET 
CONNECTION 


Nofwo>«t BrdirvclionaJ RS 232 
interlace 

Sing* Port $2*0 00 

0u*l Pan $280 00 

C*em«t $ 3S00 

Nttwooi Moq «m tor PET 
Antd'w lo 0 a> $320 00 

C*e>m«« $ 38 00 


PET with 8K uM' 

memory 1795 00 

Second Cmeite drive $M IS 
RS -232 Punier Aaapter — 
essemoieo ooe'd tQ - , a 


Video 9u N er — iOd » 
conventional monitor $2t.M 

EIPAMOAPET ■ Economical i«K 
memory no*nvo« 'or me PET i-v 
OuOaa I Ooe^ai 1*31 0O 

"IMV aeogme* Pond Utt M 



Hams! Add a 
PET to your rig. 

M.c'Olron.cj J 6S H*m tnlor1*c« 
and included so<iv>jr* You yimoiy 
pluo Ih* U"|| mio your PET and 
you re 'eady lo ditp'ay irantm.i 
and receive *.|ner Cw or ATTY ai 
'*'*» up io >00 WPU 

ASSEMBLED KITS 
$99.95 

SECOND CASSETTE 
FOR PET-S99.95 

Thn peripheral 'torn Commodore 


KIM-1 


mginal lu'ly *«0*ncu0'« smglf 


5179 


S209 

CIPAN0 YOUR KIM SYSTEM 


r «*■».**?L_ 




SELECTRIC-BASED 
TERMINAL FOR PET 


LOW-COST PRINTER 
FOR PET 


MICRO T«CM POWER SUPPLY 
A.t.moi.d $34|| 

KIM ENCLOSURE 

Give you" kiu a p'C'ottian*' appear 
ance No «iie-a>ion* 'eQu 'ed iiu'dy 

Kydei <00 8'»c» 

S23.50 


Any Quantity 

Urgently needed: 

• Peripherals 

• Manufacturers surplus 

• Closed stores stock 

SLA /^^CASH 
AVAILABLE 

Call Today: (313) 994-3200 






*0*-im-vrr—v 


s b\£ 


TC-71 SELECTRIC TERMINALS 

Top quaMy printing terminal '"T 

••in AS J17 PTTC code m. 


ASCM nit on employe 8802 
lo'code conve'i'On See our 
ca'e'og >or tfeiai'i 
ASCII U« 

Re'u'Oiened MM 

Working $*#» 

Aaia Sill 


, E ASCII INTERFACE FOR TC-71 ^ 

S* )0 Sly 0#e»t'y ko»*l*i I' W NOW \> | U J 

<C9d'< Covoer -e- .M e.N a SC" »C M J 159 



8 LEVEL PAPER 
TAPE READER 
PUNCH 


NEW ASCII INTERFACES 
for Re»d*r/Punch 


Boa'di 4 Cadiee 
Pa*."et 

AS232 Senai 


USED (90 day 

warranty) $175 00 
Documentation 
Package SIS.00 


• Supply t-rvM 
UM 

»TM 


\N S 


hazeltine 
-V 1400 

Only 

T° c * $ 749.00 


Now a 5th Generation 
in Terminals: 

Introductory Sale Price — 

Immediate Delivery 

• 24 x 80 display 

• RS-232C interlace 

• 110 to 9600 Baud 

• 12" CRT Monitor 

• Remote screen control 

• Uses 8048 microprocessor 

• State-of-the-art design 

A full capability terminal completely 
assembled with a 90 day warranty 
for less than you'd pay for a kit. 



PROGRAMMER 


Horn* Computer A A Video Gam* m a Smg/p Unit' 

INTERACT Model One 


o'O' gikonitk on your tv > ^v*- *• . 

lui't in (tiitnt i»o» d*i»» ^ 


• rg» il »*y koy6o»'d ^ 

mo iQtiiKii inr'vtfrt /N ^ 

c.kk.not .onnlM* S TQCK 







--iar 

V. 


-; •* v *~\ * 'V - > 

( . l, '> ...» ^ - , ... •, ^ ~ 

^ .vC.- »/«l'lU''W r 1 .—rf |m > WklA'- . . 


..dUA- ^Vr r -a> 

k-ViV f-'- rddd-v--. . . *-v> d 

4&L WV^r-.V ' $ ■. 

vWV--. yr y..., ' 
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New Standard Size 

Keyboard Adds Speed & Versatility 

You asked for a versatile keyboard to attach to your 
Commodore PET. And GRI did it right! PERK is a 
convenient typewriter-style keyboard that attaches 
quickly. No modification required. In minutes you can 
have the speed and ease of standard typewriter input 
plus the added capacity of upper and lower case alpha 
characters, optional graphics, cursor editing, full 
screen control, full screen editing and more...including 
multiple hookups to a single PET. Find out all the ways 
PERK can make your PET much more valuable. 

See your local computer store or contact GRI 


GXHX I 


GEORGE RISK 
INDUSTRIES, INC. 

GRI Plaza-Kimball, Neb. 69145 
Tel: (308) 235-4645 




Panic Button 

Hichatl Riley Philadelphia 

Load this program, type RUNI00, then SYS324 to initialize it. 
If you lose the cursor because of an endless machine language 
loop, you can regain control by pressing the ! and I Keys 
simultaneously. 

To test “Panic Button" type SYS869. This is an endless loop 
at the end of the program. Press I and R to exit the loop 
aid regain control. SYS824 uill reactivate the program. 

If this program is used with a Monitor, the Program Counter 
and registers will be displayed by the Monitor when you press 
I and I. Of course, the loop may have damaged your program 
beyond recognition, but at least you have a chance to find 
out what went wrong. 

The program sits in the 2nd cassette buffer. To relocate it, 
the bytes that are now at 033C and 0342 must be changed so 
they point to the routine that now starts at 0349. 

To save with monitor! .S 01 ,PANIC,033A,0348 


5T -033A 78 SEI MAKE HSUR 

52 -033B A9 49 LDAJ (49) INT VECT 

53 -0330 80 19 02 STA 0219 POINT TO 

54 -0340 EA NOP TEST R0U- 

55 -0341 A9 03 LDA» © TINE 

54 -0343 8D 1A 02 STA 02IA 

57 -0346 50 60 CLI RTS NOP _ 

>58 -Aiii A 9 "F 0 lMFTO TEST FOR ! AND 4 

59 -034B 8D 10 E8 STA E810 KEY. IF NO 

60 -034E AD 12 E8 LDA E812 THEN ON TO 

61 -0351 C9 FD CMPI FD NORM HDUR 

62 -0353 F0 03 BED 0358 INT.IF YES 

63 -0353 4C 85 E6 JMP E685 THEN RESTORE 

44 -0358 A9 85 LDAI 85 HU VECTOR 

45 -035A 0D 19 02 STA 0219 AND JMP 

46 -035D A9 E6 LDA* E6 THROUGH 

47 -035F 8D 1A 02 STA 021A BRK 

48 -0342 AC IB 02 JNPI 02IB VECTOR. _ 

49 -0365 4C 45 03 JMP 0365 <TEST LOOP 
70 l 

too F0RX e 824T\.37iiREADR!P0KEX,R:NEXT 

826 DATA 120,149,73,141,25,2,234,169,3,141,24,2,88 

841 DATA 96,234,169,240,141,16,232,173,18,232,201 

850 DATA 252,240,3,76,133,230,169,133,141 

854 DATA 25,2,149,230,141,24,2,108,27,2,76,101,3 


ANNOUNCING 


THE 

commodore 




personal computer ^ 






Now Available in the Washington D C. Area From: 


The 


CDfnPUTEFi SVSTEmS STORE 

TYSONS CORNER VA. NEAR HOLIDAY INN 
1984 Chain Bridge Rd., McLean, VA 22101 
703 - 821-8333 

- A RA1 LINE COMPUTER STORE: SALES ■ SERVICE - SOFTWARE" 


New Discovery ? 

Even at This tale date there are still some surprises hidden in 
your PET. Frank Chambers writes from Ireland to suggest that 
you input one of these lines and then call for a listing. 

("s" means SPACE key; means SHIFTed character.) 


43O2sR5M,^3s0s(s» B+I?;4 
11234sRBI i,^=/Z^?yY^?+)s; I "B'U 


A One Line BASIC Program 

Decimal To Hex Conversion - 4 Lines Henry Chow, Detroit 


Mr. Kim Clark, Anaheim CA 

1 A««"0I23454789ABCDEF"iINPUT"DEC/HEX";A:B*I 
lC=9iD»16‘C:PRINT"u"A*l • ";:A*AM 

2 IFA-D>0THENA-A-D:B>B*1 2 G0T02 

3 PRINTMID4(At,8,1);iB*l:C*C-1iD*14‘CiIFC>-1 
GO T 0 2 

4 PRINT" "iGOTOI 

READY. 


100 F*B24iL = 841iFORN-tOOOTOIOI1:PR I NTH;“DAT A"; 

200 F0RP*FT0LlPRINTPEEK(P):"cursor left";:NEXTP 
300 PRINT:F 3 l*liL*L*16iNEXTN:END 

Ctd. note: some of you might question the the phrase 'One 
Line' in the title. Henry sent the routine as one line using 
PET BASIC abbreviations. 1 changed it to 3 lines for 
convenient listing. The program converts machine language 
code in the second cassette buffer area into DATA 
statements. 1 


REQUESTS 

Software single step feature for machine language programs. 
Write KIM tapes from PET under software control. 

Read KIM tapes using PET with minimal hardware. 

More machine language routines (completely explained and 
documented. 


MISCELLANEOUS 

Stan Klein, Joint Science Dept, Claremont Colleges, 
Claremont CA 91711 is interested in contacting people interested 
In simulations in biology, chemistry, physics, and psychology at 
the college level. 
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DAM SYSTEMS PRICE LIST 


AIMI 6 I - Analog InDut Module 

14 5-bit anaioq inputs - 1 00 microsecond conversion time - 3 state output - requires one 8 -blt 
computer output port for control and one 8 -blt computer Input port for date 

AIM!62 - Analog Input Module 

As above plus> greater accuracy - gold plated contacts - pilot light - switch selectable start, 
enable and ready polarities. 

POMl - Power Module 

Supplies power for one AIMI 6 moduls. 

ICON - Input Connector , 

20 pin card edge connector - solder eyelets 

OCON - Output Connector 

ror connecting the AIMI 6 to a computer - 18 pin card edge connector - solder eyelets 
AI MI 61o St ar t er Set 

Includes one AIMIS1, one POWI, one ICON and one OCON. 

AlMl 62 Starter Set 

Includes one AIMI62, one POWI, one ICON and one OCON. 

MANMODI - Manifold Module 

Use In place of ICON. 16 3-screw terminal barrier strips for conn actIng ' Joys11cks . potentiometers, 
voltage sources, etc. Eliminates the need for soldering. Plugs Into the AIMI 6 . 

ANAMANI - Analog Manifold Module 

Use In place of ICON. Connects DAM SYSTEMS SENSORS to the AIMI 6 without soldering - sensor cables 
Just plug in. Plugs into the AIM16 or the MANMODI. 

SENSOHS 

Sensors for temperature, pressure, flow, humidity, level. pH. motion, etc. 

COMPUTER INTERFACES 

ror the PF.T. KIM, TflS-80, etc. Use in place of OCON. Eliminates the need for soldering or special 
construction. 

M AND I SI - Manual and Dlsolav Module 

Connects the AIAI 6 and the computer Interface. Allows manual or computer control of the 

AI M I 6 . Dtsclavs channel numner d data. 

CP I B MOD - GP10 (IEEE-M88) Interface Module 

Allows t-e DAM SYS.cMS MODULES to oe used with the GPI3 bus Instead of a coeputir'i othar I/O ports. 
* PAN Dr I - Expander Module 

Alici-s uc to 123 8 - 0 11 aneloo Inputs (8 AIMI 6 Modules) to oe connected to one system. 


SI59.O0 

*229.00 

*14.95 

*9.95 

*9.95 

*189.00 

*259.00 

TBA 

TBA 

TBA 

TBA 

TBA 

T8A 

TBA 
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Introducing 






If you've gotten tired of playing children's | /_\J - 

games on your PET, consider TANKTICS, the |/ H E - 1 FT3 |- 

most sophisticated computer game available. d[ _ 

TANKTICS is a computer game which simulates —_ 

armored combat during World War II. You command a force of up to ten tanks; your 
mission is to take and hold an assigned objective. Opposing you is the PET itself, 
armed with twice as many tanks as you have. The PET's tanks are just as fast and 
powerful as your own, so to win you must maneuver your tanks more shrewdly than-PET. 
This isn't easy—PET's sophisticated software allows PET to play a very good game. 

To beat PET, you must carefully judge the effects of terrain, range, and individual 
tank facing as you plan your move. You must consider and utilize the element of 
surprise, for you do not know the position of an enemy tank unless one of your tanks 
can see it. TANKTICS is a "think" game rather than an "action" game, so you have all 
the time you need to plan your move. In sum, TANKTICS provides a tense and challenging 
game that can be played many times without losing its richness. 

With each game of TANKTICS, you get: 1) tape cassette containing TANKTICS 
program in two segments (1.4K machine language segment and 5K BASIC segment); 

2) 31 playing counters; 3) 17" x 22" map depicting the battlefield; 4) 8 page player's 
manual explaining how to play and giving tactical hints. 

TANKTICS is now available for shipment. To order, send check or money order 
for $15.00 (Calif residents add 6% sales tax) to: 

*• TLEl^DEg Game Go 
* * 202 Taro e/\ve 


GA 95616 


Please allow one to three weeks for personal checks to clear the bank. 
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Arrow 

Jim Butterfield 

i. 

10 PRINT“3 ARROU 2 JIM BUTTERFIELD" 

20 INPUT"INSTRUCT I OHS*;ZJ:IFASC(7i) = 78G0T0l00 
30 PRINT"GUIDE THE MOVING 'SNAKE' WITH KEYSi' 

* 40 PRINT" 2<D0UN>, 1(LEFT), 6(RIGHT) r 8<UP>" 

50 PRINT'DON'T HIT THE BOUNDARY (OR YOURSELF);" 

30 PRINT*..TRY TO HIT THE FOXES FOR POINTS." 

•*. 70 PRINT"YOU HAVE 40 SECONDS OF PLAY. GOOD LUCK!" 
sJO PRINT" HIT ANY KEY TO START" 

GETZ»:IFZt=""G0T090 
DIMP(BO),D(3) 

110'VD<0> = 22 :D( I >=40:D(2)*42:D(3>=30 
120 t?»3274B:T4=359?:P0KE59448,12 
130 HI'5944?:M2=59444:H3=59444 
140 PRINT'cs SCORE: 0“ 

150 F0RJ e 32808T032847:POKEJ,81iPOKEJ+920,81 :NEXTJ 
140 FORJ=32B48TO3372BSTEP40:POKEJ,81:POKEJ*39,81:NEXT 
170 V*20:H=35:V1*0:H1=-I:P2=IO:D1»1 
180 TI$=“000000" 

190 PRINT’hone";RIGHTt(TIt,2):IFTI7T4G0T0480 
200 GETZt:IFZt’""G0T0230 

210 Z*(ASC(Z1)-50)/2:IFZOINT(Z>ORZ<OORZ>3GOT0230 
220 DI»Z:D»Z-I.3: VI «INT (ABS (D> )*SGN( D) :HI >SGN(D )-V1 
230 V=>V-VI:H=H*HI 
240 P=32748*V*40*H 

250 P9-PEEK(P):POKENI,14:POKEN3,29«D1+80:POKEH2,13 
240 R4=R7:R7»R7*1:IFR7>P2THENR7*0 
270 P1*P(R7):P(R7)«P:P0KEM1,0:IFP1<>0THENPOKEP1,32 
280 POKEP,D(DI) :Pt =P(R4) :IFPIOOTHENPOKEPI ,81 
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290 IFP9O32G0T0400 
300 IFRND<1)>.03G0T0190 

310 FORV3-V2-1TOV2+1:P3=V3»4O*T9:FORH3=H2-IT0H2*1*IFPEEK(P3» 
H3X>I02G0T0330 
320 P0XEP3*H3,32 
330 NEXTH3,V3:T«0:P0KEP8,32 
340 V2“INT(RND(1)*20)+3:H2*INT(RND(1)*34)*2 
330 F0RV3 = V2-1T0V2+1>P3«V3*40*T9iF0RH3"H2-1T0H2 + 1iIFPEEK(P3 + 
H3IO32G0T0340 

, 340 NEXTH3,V3:F0RV3-V2-IT0V2M :P3*V3»40tT?:F0RH3«H2-IT0H2M 
370 P0KEHI,I4:P0KEH2,15:P0KEH3,30 
380 P0KEP3*H3,1O2:POKEH1,O 

390 NEXTH3,V3:T=9*RND<1>:P8=V2»40+H2*T?:P0KEP8,49»TiGOTD190 
400 IFP9OI02G0TD440 
410 Tl'TII 

420 T'T-1:S*St1:POKEP8,T+49:POKEH1,14:POKEM2,13 
430 PRINT"ho«e*9 cursor right";S 

440 F0RJ’IOOT030ST£P-t:P0KEM3,J:NEXT:POKEM1,0:IFT>*OGOT0420 
450 P2=P2+1:TI»=T»:G0T0310 

440 P0KEH1,I4:POKE«2,I3:POKEH3,200:FORJ*1T01000:NEXT 
470 POKEN1,0 

480 PRINT"ANOTHER GAMET2 •*="; 

490 GETZ$:IFZ1*""GOT0490 
300 IFZ1*“Y"THENCLR:GOT0100 
510 IFZ»O"N*G0T0490 
520 PRINT’S"; 

ed. note: this progran uses sound. 

If you have not already done so, get an edge 
connector for the parallel port and hook up an audio 
anplifier using pins CB2 and Ground. If you do not 
have an anplifier, an inexpensive choice would be 
a Radio Shack 'Nlcro-Sonic' speaker-anplifier for 410.95. 
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